home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ra-scrs.zip / RA-NEWF.RS < prev    next >
Text File  |  1992-10-30  |  1KB  |  40 lines
  1.  
  2. TITLE "Remote Access new file scan"
  3. ;must be in MAIN MENU for this script to operate correctly!
  4. PARAMETER 1 "Date to start new file scan     MM-DD-YY"
  5. ENDPARAMS
  6. ; Validate parameters
  7. IF EMPTY "%P1%" GOTO OOPS
  8.  
  9.     WHEN "ENTER to co"                     SEND "|"
  10.     WHEN "[ENTER] to co"                   SEND "|"
  11.     WHEN "More(Y/n/=)?"                    SEND "|"
  12.     WHEN "MORE(Y/n/=)?"                    SEND "|"
  13.     WHEN "Press Enter"                     SEND "|"
  14.     WHEN "[y/N]"                           SEND "|"
  15.     WHEN "[Y/n]?"                          SEND "|"
  16.     WHEN "<press any key>"                 SEND "|"
  17.  
  18. SEND "|"
  19. WAITFOR "Main Menu Select" FAILURE GOTO ERROR
  20. ;goto files menu
  21. SEND "F|"
  22. WAITFOR "Files Menu Select" FAILURE GOTO ERROR
  23. SEND "N|"
  24. WAITFOR "since your last call [Y/n]" FAILURE GOTO ERROR
  25. SEND "N|"
  26. WAITFOR "newer than MM-DD-YY:" FAILURE GOTO ERROR
  27. CAPTURE "%ID%.CAP" OVERWRITE
  28. SEND "%P1%"
  29. WAITFOR "Files Menu Select" FAILURE GOTO ERROR
  30. CLOSE
  31. MESSAGE "Navigating to Main Menu"
  32. SEND "+|"
  33. EXIT 0
  34. :ERROR
  35. MESSAGE "Something went wrong"
  36. EXIT 1
  37. :OOPS
  38. MESSAGE "No date entered"
  39. EXIT 1
  40.